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rms32 


this module performs $get /S$find record 
processing for the sequential file organization. 


star processor running starlet exec. 


L fF Laverdure, creation date: 3-FEB-1977 


RASO308 Ron Schaefer Lag OU 4 7 
Backout zero-length record optimization made in RASO278 
so that a record buffer addr is always set. Too many 
callers depend upon a valid address being returned. 

Fix record length computation for VFC ANSI-tape records. 


RAS0294 Ron Schaefer 17-Apr-1984 
Don't check fixed record length unless FABEV_BLK set. 
Fix to RASO278. 


RASO278 20-Mar-1984 
Try to improve the performance of this beast; 
particularly for variable-length record disk files. 


JWT0167 Jim Teague 15-Mar-1984 
Redo buffer offset, which involves removing it entirely 
from this module. 


Ron Schaefer 


17-Feb-1984 

Zero length records read from a mailbox that was SYSSINPUT 

were not being returned (another read was posted). This has 
been fixed b changing the criteria of when to do logical eof 
(SEOD) checking from SYSSINPUT and not a terminal, to SYSSINPUT 
and not a record oriented device. 


JWT0150 


David Solomon 


Jim Teague 31-Jan-1983 
ANSI buffer offset. 


Implement Oh, and fix 3 broken 
branches, too. 
DAS0006 David Solomon 12-Dec-1983 


For extended terminal reads, read the number of bytes that the 
weer ached for (don't maximize read size with device buffer 
size). 


RASO159 Ron Schaefer 
Change PPF Topyt record checking to allow for records 
longer than 257 bytes. No Limit is now enforced, 

since the SEOD checking can at most require 16 bytes. 


DASO00S David Solomon 24-Mar-1983 
New IOSB format for extended terminal reads: terminator 
length is now a byte, instead of a word. 


7-Jun-1983 
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V03-006 KBT0424 Keith B. Thompson 30-Nov-1982 
Change ifb$Sw_devbufsiz to ifb$l_devbufsiz 
v03-005 KBT0170 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
V03-004 JwHO002 Jettrey W. Horn 30-Jul-1982 
Fix three broken branches. 
v03-003 KBT0082 Keith B. Thompson 13-Jul-1982 
Clean up psects 
v03-002 RASO090 Ron Schaefer 88-Jun-1982 


Correct for odd-aligned NRP_OFF for VAR and VFC formats; 
also clean-up some psect confusion. 


v03-001 RASO089 Ron Schaefer 7-Jun-1981 
Delete the reference to the incorrect SQUAD_ALIGN macro. 
v02-050 JwHO001 Jeffrey W. Horn 31-Dec-1981 
Fix broken CASE and yet another branch. 
v02-049 KPLO0001 Peter Lieberwirth 31-Dec-1981 
Fix yet another broken branch. 
V02-048 TMK0042 Todd M. Katz 26-Dec-1981 
Fix yet another broken branch by changing a BRW GET_RETREC 
TO A JMP. 
VO2-047 TMKO0037 Todd M. Katz 24-Dec-1981 


Fix another broken branch by moving UDFSIZ into the ‘middle’ 
of GET_ANSI_D. 


V02-040 TMK0033 Todd M. Katz 22-Dec-1981 
Fix a broken branch by changing a BRW GETOO to a JMP. Also, 
fix another broken branch by moving the STMSIZ labeled code. 


V02-045 RAS0026 Ron Schaefer 19-Aug-1981 
Fix broken brances and compress PSECTs. 
V02-044 RASO0025 Ron Schaefer 18-Aug-1981 
Add $GET support for UDF files. ’ 
v02-043 RAS0023 Ron Schaefer ]{-Aug~ 96) 
Correct stream files and fixed files from ANSI tape. 
V02-042 RASO018 Ron Schaefer ig he 
Fix more broken branches caused by stream files. 
v02-041 RASO018 Ron Schaefer 6-Aug~1981 
Fix broken branches caused by stream files. 
v02-040 RASO016 Ron Schaefer 28-Jul-1981 
Add stream file support 
v02-039 RASO017 Ron Schaefer 21-Jul-1981 
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Change SEOD processing for SYSSINPUT so that RM1TINPUT_SCAN 
no longer worry about fitting into the buffer. 
This change is necessary to make stream files work Later. 


v02-038 KRM0020 K R Malik 1=JUL-1981 
Do not clear RFA on network operation. 

v02-037 JAK0051 J A Krycka 23-DEC-1980 
For task-to-task get operation, use the smaller of RABS$W_USZ 
and IFBSW_DEVBUFSIZ to determine the number of bytes to request 
in a receive Q10 system service call. 

v036 REFORMAT Ken Henderson 30-JUL-1980 5:49 
the code was reformatted 

v035 JAKO045 — J A Krycka 19-MAR-1980 15:00 
fix bug in return of stv for network operation. 

v034 PSK0017 P S$ Knibbe 14-MAR-1980 11:00 


sequential get should only round up record size if the 
device is not magtape (checking for ansii is wrong). 


v033 JAK0041 J A Krycka 02-MAR-1980 14:00 
issue new get after find if network operation, because 
network find does not return a record. 


v032 Cos0012 C D Saether 23-F EB-1980 21:53 
use larger of terminal width and user buffer size for read 
request to terminals. move data if byte count non-zero. 


v031 PSK0004 P S Knibbe 18-DEC-1979 10:00 
if get from terminal has control-y or control-c alternate 
success status, don't return the tns error 


v030 PSK0002 P S$ Knibbe 26-NOV-1979 6:00 
terminal escape sequences are placed in the user buffer if 
there is room for them. 


v029 PSk0001 P S$ Knibbe 25-NOV-1979 12:00 
a get on foreign magtape clears the irb$v_eof bit 
v028 CDS0011 C D Saether 26-JUN-1979 17:20 


fixes so mailboxes work correctly as sys$input 
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«SBTTL RMIGETINT = INTERNAL GET/FIND SEQUENTIAL ALL DEVICES 


T_UNIT_REC 
T“BLK BEV 
TRANDOM 


this module includes two routines to perform get/find 
record processing for the sequential file organization. 


* 

RMSGE 
; RMSGE 
; RASGE 


Sete Sete 


Calling sequence: 


bsbw rm$get_unit_rec ; for unit record device 
bsbw rm$get_blk_dev ; for block-oriented device , 


Input Parameters: 
rij impure area addr 
r10 ifab addr 
r9 irab addr 
r8 rab addr 


Implicit Inputs: 


OOOoQoQooooooooooo 
COOOQCQOQoooQoQoooooooooooo 


SOOoOoooCoooooooooooooooooosoooo 


the contents of the various structures. 


SOoooooooooooo 


Nutput Parameters: 


r0 status code 
ri-r7 destroyed 


Implicit Outputs: 
the internal structures are updates to reflect the 
results of the get or find. the rab fields 
are updated to correagens to the found or gotten 
record (see functional spec for List). 

Completion Codes: 
standard rms. 

Side Effects: 


none 
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p68 fe -SBTTL RMSGET_UNIT_REC = UNIT RECORD GET ROUTINE | 
09 1 RMSGET_UNIT_REC:: 
50. 01 00 0 7 movC —-#1,RO ; get a correct status in r0 | 
54 20.49 dQ 000 78 MOVL  § IRBSL_CURBDB(R9) ,R4 ; get current bdb addr | 
15 1 54 79 BEQL NEXT ; branch if none exists 
05 6A 2E €1 184 80 BBC #IFBSV_PPF_INPUT,(R10),10$; br if not ‘sys$input' 
00D 82 ; | 
3000 84 ; if this is the ‘input’ stream for this process, then retrec will perform 
000D 84 ; end of deck checking. it indicates that the current record is to be 
844 8? 3; re-retrieved on the next get by resetting the nrp context from the rp 
OD 6 ; context (makes much sense for disk files). to detect that same condition 
000D 87 ; here (mailboxes are reasonably used as sysS$input), the nrp field is stuffed 
Q000D 288 ; with a i before calling retrec. the rp field is left clear. therefore, if 
000D 289 ; the nrp field is clear at this point, we are supposed to re-retrieve the | 
000D 290 ; same record as last time (i.e., get it out of the buffer). note that the 
000D 291 ; mrp field can be anything following connect if curbdb is zero so that this | 
000D 444 ; check is skipped the first time through after connect. 
000D 293 ; 
000D 94 ; 
40 a9 D5 0000 395 TSTL _ IRBSL_NRP(R9) ; re-retrieve this record? | 
57 13 0010 296 BEQL MOVEDATA : yep 
0012 297 | 
0012 298; : ae | 
ois 299 ; if last operation was a find and this is a get, then re-use the record 
001 300 ; in curbdb, otherwise skip it and get a new one 
0012 301 ; 
0012 $06 : 
08 6A 3E £0 0012 3035 10$: BBS #IFBSV_DAP,(R10),NEXT  ; network find does not return 
bore $0¢ 3; any data, so get new record 
0469 25 €1 0016 306 BBC #IRBSV_FIND_LAST,(R9) NEXT; get another 
48 69 29 €1 bole 305 BBC #IRBSV_FIND,(R9) ,MOVEDATA; this is a get, use rec found 
QOO1E 309; 
OO1E 710 ; irb$v_eof is used to mark whether or not the device is a end of file, 
QO1E 311 ; because foreign magtapes permit 2 user to read past the end of the file, 
QOO1E $18 ; they must clear this bit on a read. foreign magtapes which were mounted | 
pote a7 3; with a record size specified do not go through this path. 
OO1E 315 ° 
08 6A 05 €1 OQOIE 16 NEXT: BBC #DEVSV_SQD, IFBSL_PRIM_DEV(R10),10$; branch if not magtape 
04 6A 18 €1 6° 2 17 BBC #DEVSV_FOR, IFBSL_PRIM_DEV(R10),10$; branch if not foreign 
i : 1% CSB #IRBSV_EOF ,(R9) :; always clear eof on get 
| 
6D 69 21 €0 Base $9 10$: BBS #IRBSV_EOF , (R9) ,RMSGET_EOF ; exit if at eof 
002E 22 H | 
002E 3 get next record 
as 
52 48 AA DO 00 5 $$ MOVL 1FBSL DEYRUCS 7 (R193 2 ; size of buffer : 
OC 6A_ 3 E1 00 BBC #1FBS0_NSP,(R10),15$ ; branch if not task-to-task operation 
5 20 A B1 0036 8 CMPW RABSW_OSZ(R8) ,R2 3; use the smaller of user buffer size 
1 1 bs A 9 BGEQU 20% ; and device width (which for. 
52. 20 A8 3C 003C 0 MOVZWL RABSW_USZ(R8) ,R2 : task-to-task communication is a 


—— ne 


C 13 


3; so rm$input_scan works 
: if terminal device, make further checks. 


5B 6A 02 €0 BBS #DEVSV_TRM, IFBSL_PRIM_DEV(R10), TRM 3 branch if terminal 


RMIGETINT INTERNAL GET QUENTIAL 16-SEP-1984 00:48:17 YAX/VMS Macro V04-00 Page 
y04 600 RMSGET_UNIT_ - UNIT RECORD GET ROUTIN ets 7 0:58:34 CAMS SRCJRMI GETINT MAR: 1 ° &) 
1 11 004 , BRB 20$ ; predefined data transfer size Limit) 
0 E1 004 i5$: BBC #DEVSV_TRM,- ; branch if not terminal 
OE ga 04 rest PRIM DEY(AIO) -208 ; 
06 68 C EO 0046 BBS #RABSU_ETOFROP,(R8),17$ ; use user buffer size for extended 
Q4A 3; terminal reads 
20 AB «52~—~=C‘«éST pen Re RABSW_USZ(R8) ; use the larger of user buffer size 
046 «#«1€E “r3 BGEQU 20 ; and terminal width (as user request 
52 20 A8 3 005 17$: MOVZWL RABSW_USZ(R8),R2 3 may exceed one Line of data) 
OC Ad C 0054 208: CLRQ IRBSL_10S(R9) ; init io status block 
be 0057 CLRL R3 ; read required 
FFAG’ 30 Baer BSBW RMSSEQRD 3 get the record 
005¢ ASSUME <BDB$B_REL_VBN+1> EQ BDB$B_VAL_VBNS 
48 AG B4 005C CLRW BOBS$B_REL_VBN(R4) ; clear both fields 
49 AG 96 Bees INCB BDB$B_VAL_VBNS(R4) ; make this a one (was zero) 
ae 
Bags 
006 
006 
006 
006 
0066 
0066 
0069 
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0550 €9 BLBC RO, ERR_CONT ; don't modify STV on error 
0069 3 
0069 3; return the record 
0069 ; 
0069 
0069 MOVEDATA: : 
Oc AB 10 AD 00 apoE -— OE IRB$L_I0S4(R9), RABSL_STV(R8); return 2nd Lngwrd jiosb to user 
40 A9 01 D0 006 e MOVL #1, IRBSL_NRP(R9) ; stuff with 1 (see note above) 
51 18 A&4& D0 0072 MOVL BDBS$L_ADBR(R4) ,R1 ; set up rl, r6, r7 for retrec 
56 14 AG 3¢ 60076 MOVZWL BDBSW_NUMB(R4) ,R6 
57 56 51 41 OO7A ADDL3 = R1,R6,R 
03 6A 3— €1 O07E BBC #1FBSV_DAP, (R10) ,10$ 
00A8 0 0082 BSBW NTIVFC : branch if network request 
50 DD 0085 10$ PUSHL RO 3 save status 
034C 30 0087 BSBW RETREC 3 return the record 
03 50 €E8 OO8A BLBS RO, 20$ : branch on ok 
6— 50 DO 0O08D MOVL RO, (SP) 3; set status 
50 8EDO B839 20$: POPL RO 3 festore status 
09 ZERO_RFAI 
03 6A 3E 0 0093 #IFBSV_DAP,(R10),10$ ; Branch if network request 
10 A8 C 0097 CLRQ RABSW_RFA(R8) ; zero rfa | 
05 009A 10$: RSB 3 return to caller 
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° 
a 
. 
; map to rms error. 
° 
e 
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continue to return any data present. 
retrec gets an error. 
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if a sequential read returned a partial escape or a bad escape error 
this will be overridden by retrec errors (e.g., rtb). 
in any case, continue to move any data returned (byte count in iosb). 


3 read error ? 
; read error - check for specl 


21 50 €8 BLBS RO,20$ 3; successful read? 
COF4 8&F 50 B1 CMPW RO, #<RMS$_RER&“XFFFFD> 
3c 12 BNEQ 35$ 
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098 
9B p++ 

O98 ; 
98 ; eof error 

098 3 

098 i-- 

098 

098 RMSGET_EOF:: 

Baye RMSERR' EOF 

OA0 

QOA0 ; ; 

Bead : if device is a terminal reset eof flag so that eof error is given only once 

00A0 : 

06 6A 02 €1 OQOAD BBC #DEVSV_TRM, IFBSL_PRIM_DEV(R10),10$; branch uniess terminal 
OOA4 CSB #IRBSV_EDF, (RI) ; reset eof flag 
14 11 OOA8 BRB 20$ 3 and branch to common exit 

SOMA 

oe ; if this is sysSinput (on other than a terminal) reset end of data scan string 

OOAA ‘ 

10 6A 2E €1 OOAA 10$: Bec #IFBSV_PPF_INPUT,(R10),20$ ; branch if not sys$input 
00000000'°9F_ 02 «BA ODAE BICB2 #laPlo$v_E0D, aaPfoscw STATUS : clear "$Seod’ flag > 
00000000'9F 2401 8F 99 0085 MOVW #1+<*A/$7 @ 8>,a#PIOSGT_ENDSTR : reset eod string to single ‘''$" 
015F 1 OOBE 20$: BRW ZERO_RFA 


this error will be preserved unless 


3¢)6—s«OC:«AD—=é@’™*‘T CMP IRBSL_IOS(R9), #SS$_BADESCAPE; yes - bad escape sequence ? 
07 «12 BNEQU§ 10% 3 no - check next 
RMSERR BES,RO 3 yes > map error 
OD 11 BRB 208 3 continue 
: continue to return any data present. this error will be preserved unless 
3; retrec gets an error. 
O1FC 8F OC AD Bl 10$: CMPW IRBSL_IOS(R9), #SSS_PARTESCAPE; is it partial escape sequence? 


(7) 
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27 =6©12 00D 437 BNEQU 35$ 3; no = continue 
OE 438 RMSERR PES,RO 3; use rms error 
ae 
OES 441; special checks for terminal devices after qio is done. adjust 
OER re ; bdb$Sw_numb to include escape sequences and cause them to be returned. 
O65 444 
01 Ad 91 a 445 20$ CMPB RBSL_10S4+2(R9), #1 ; 1 byte terminator? 
08 13 OOE9 rr: BEQL : if so don't copy it 
52 12 A9 QA QOEB 44 rade IRB$L_10S4+2(R9), R2 3; extract terminator length 
14 AG AO Spee ret ADOW W_NU ; add in escape sequence length 
91 ors 449 30$ CMPB RBSL_IOSZ(R9), MCTRLZ ; record terminate with *z? 
1g OOF 450 BNEQ 4 3; branch if not 
B5 OOF9 451 TSTW IRBSW_10S2(R9) ; test size returned 
D 13 OOFC t2¢ BEQL RM EOF ; make this eof if zero 
OOF 45 SSB #IRBSV_EOF ,(R9) ; set eof flag 
OC AB 610 AD DO 010 454 34$: MOVL IRBSL_TOS4(R9), RABSL_STV(R8); return 2nd Lngwrd iosb to user 
FF64 30 010 455 35$: BSBW ERR_CONT ; move the data 
18 69 29 #+€O GI0A 456 BBS #IRBSY_FIND, (R9), 50$ ; is this is find, leave now 
01 12A9 «91 108 457 CMPB  —s IRB$L_TOS4+2(R9), #1 =: 1 byte terminator? 
15 13 Q11 458 BEQL 50$ 3 no sweat, all done 
OB 1A QO114 459 BGTRU 40% 3; branch if escape sequence 
Oc Ad) «=6(01-tsé#=BB@’Yd aie r+ CMPW #1, IRBSL_IOS(R9) 3; straight success so far? 
O11A = 462 gs 
O11A 463 ; check in iosb so that a get following find that got 
O11A «464 ; cntrl*c or y alt succ does not get tns error. 
O11A §=465 
O11A 466 
OD 12 O11A 467 BNEQU 50$ ; mo, then leave error as is 
Bias 468 RMSERR TNS ; else say no terminator seen 
52. 12 A9 QA O12 469 40S: MOVZBL IRBSL_10S4+2(R9), R2 ; extract terminator length 
22 AB 52 A2 0125 470 SUBW2 R2, RABSW_RSZ(RBS ; adjust record size reported 
05 0129 471 50S: RSB 3 so that escape sequence is 
012A 472 3; not included. 
Bish 473 
012A 474 ZERO_RFA1 BR: 
FF66 «631 «(012A = 475 BRw ZERO_RFA1 ; and out 
012D 476 
012D 477 ;++ 
012D 478; WE , y 
B1s8 rt 4 3 network specific code to update rhb if record in vfc format 
8 ap 
03 50 AA 91 0120 283 NTVFC: CMPB [LESS PF ROBERTS? OF ABEL, ECs vfc_ format? 
8 12 0131 484 BNEQ 0$ ; branch if not 
0 oD 4 : 485 USHL ; save old status ; 
52 SF AA 9A 01 486 MOVZBL IFBSB_FSZ2(R10) ,R2 ; pick up fixed header size 
62 Ad 25 5. th 487 ADDW R2, IRBSW_CSIZ(R9) ; adjust total record size 
56 5 C 13D 4 8 SUBL R6 3 adjust remaining rec size 
1D SOF bie9 4 BLSSU 408 ; branch if fsz > available data 
535 2C AB 00 142 490 MOVL RABSL_RHB(R8) ,R3 ; get user's header buffer 
10 1 146) =491 BEQL 10$ 3; and branch if none 
1¢3 $26 
14 495 ; 
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14 494 ; move vfc header to user 
128 98° 
OC 69 $3 3 14 299 BBS #IRBSV_FIND,(R9),10$ ; branch if this is a find 
0319 14C $38 BSBW GTMVRC 3 move juss like record 
06 5 3 14F 849 BLBS RO,10$ : branch if ok 
021 0 13 0 BSBW ERRRHB 3 map the error maybe 
6— 5 dO 12 1 MOVL RO, (SP) 3 set status 
15 08 3 
1 4 ; skip over unwanted rhb 
188 808 
51 26 C 15 : 10$: ADDL2 Tie ; bump source pointer 
50 8ED 158 3 gps: POPL R 3; restore status 
0 IRE 44 $: RSB 3; rejoin mainline 
26 D4 O015F 11 408: CLRL R6 3; show no data 
F 11 0161 512 BRB 208 
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1 1% -SBTTL RMSGET_BLK_DEV = BLOCK DEVICE GET ROUTINE 
16 16 p++ 
16 1 3 
12 ; perform get from a block device. 
16 0 ;-- 
16 1 
16 § s+ 
16 : 
16 4 ; make longer version of eof check. 
1 > 3 (note: this label is not a global entry point) 
16 © ; this module checks for the current record position at or 
016 528 ; beyond the logical end of file, setting 
Be 529 ; the irb$v_eof bit if so. 
16 2 0; 
16 5 ¢ 
16 5 CHKEOF 1: 
10 69 21 #=€0 0163 534 BBS #IRBSV_EOF,(R9),10$ branch if already eof 
74 AA 40 A9 D1 0167 «535 CMPL = IRBS$L_NRP_VBN(R9) , IFBSL _bex (R10) : at eof? 
25 iF OVC 5 $ BLSSU  GETNRP ; branch if not 
07 ~«#1A 3195 53 BGTRU 10$ branch if definitel 
Bie 538 current eof bloc 
5C AA 44 A9_ Bl 179 539 CMPW IRBSW_NRP_OFF (RO), IFBSW_ iroteid) 3; how about byte position? 
1c =O 1F «017 540 BLSSU  GETNRP ; Nope = not there yet 
0177 =541 10S: SSB #IRBSV -EOF. (R9) : eof - set the flag 
FFID 31 0178 2¢¢ BRwW RMSGET_EOF 3; report error 
O17E 54 
O17E 544 344 
O17E = 545 7 
O17E 546 ; get next block (note: this label is not a global entry point) 
017E et! 3 
Bize 48 ;-- 
17E 549 
0344 30 O17E 550 GETOO: BSBW NXTBLK 
A650 «EY HH $3) BLBC RO,ZERO_RFA1_BR ; get out on error 
6184 238 30 
O18 554; : 
31 r 222 3 entry point to read a full buffer (i.e., mbc+1 blocks) 
184 23f i-- 
184 3 
184 35 RMSGET_BLK DEV:: 
53 D4 0184 60 CLRL R3 : flag full read required 
0186 561 
ibe 8e8 i 
186 64 ; entry oint for random reads to trans ter less than mbc+1 blocks 
130 o2 : =short read flag (#2) and r2=4 blocks to read minus 1 
1 6 66 i-- 
186 98 
186 § RMSGETRANDOM: : 
186 0 STSTPT GETBLKD 


| H 1 
RMIGETINT E EQUENTIAL . : 
v04 LK_DE : 


- BLOCK DEVICE GET ROUTIN 


INT 

RMS 

74 AA 40 A9 OD] 
dO OTE 

FE6A’ 30 

9150 €9 

51 44 AD ° 

48 AQ = =40 AD D 
55 50 AA 9A 
ya 

Ss pw 

18 813 

. 

a 7 

06 «IF 

OOFO 8 331 

0082 = «31 

0140 =—‘31 


= 


>>>>r>rrrrrr,r>rrrr rr PoOooooowoooonw gr 


BWA MPINIPIPIPIPIPPININPINPINPINININI OS OP WWIII SO 


4 


DDD PUPP VSS VS USSSA USSU 


Ob —s — 2 — > 2 2b —s = — 2 —s bs —s — ss as as ss —s >» 2 4 2 


wOBwOwwowr> 


GOOCCCCOOGCOCOCOCSCOCOOOOOOCOOOCOOOOOOOOCOOOCOoOO - 
PPnNNSwOTNS 


Aa 
o- 


COOSDOOOOVO OOOO ODWDOWDODOOOOYINNNNNNN <wm 


wr 


SOONAUE WIN @ O DOONAN WIN O OONO UE win 


60 


608 


1 mia ts 9 9 $8: 1! ive Macro V04-00 Page 


“SEP=19 RMS.SRCIRMIGETINT.MAR; 1 


IRBSL_NRP_VBN(R9) ,IFBSL_£BK(R10); at or past eof block? 


CMPL 
CHKEOF 1 ; yes - make long check 


BGEQU 


; must get the block specified by nrp 


GETNRP: Had RMSGE TBLKNRP 3 get the block 


L RO,ZERO_RFA1_BR ; get out on error 
ADDL2 IRBSL_NRP_OFF(R9).R1 : make offset into address 
MOVG §IRBSLINRP-VBN(R9),IRBSL_RP_VBN(R9); set rp from nrp 


ASSUME FABSC_UDF EQ 0 

ASSUME FABSC_FIX EQ 1 

ASSUME FABSC_VAR EQ : 

ASSUME FABSC_VFC EQ 

ASSUME FABSC_STM EQ 4 

ASSUME FABSC_STMCR GT FABSC_STM 

ASSUME FABSC_STMLF GT FABSC_STM 

MOVZBL IFBSB_RFMORG(R10) ,R5 3; case on record format 

BEQL 10$ ; UDF 

CMPB = s«R'5, #FABSC_VAR 

EQL VARSIZ ; VAR 

BLSSU -FIXSIZ ; FIX 

CMPB sR’, #@F ABSC_STM 

BLSsu 20 3; VEC 

BRW STMSIZ 3; STM11, STMLF, STMCR 
108: BRW UDFSI2Z 
208: BRW VFCSIZ 
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Variable or vfc size 


the total size field is, by definition (i.e., $put), contained in a single 
block, thus it can be accessed without regard for crossing block boundaries. 


the size field is in one of the following two formats: 


binary - word-aligned signed 15-bit integer (size of data) 
- 1 = end of block 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


_ 
espe Pe Desde sdesdesdecdecdesdesdecde Desde decdecderdes) 
PAPA AAAAA AAA AAA AAA AAA AAAS 


WALA AAI AIR ROPORPUNOPUNUNOI Se 


D 
1B 618 
1BD 4 
1B Sle 
1BD IP 
1BD 8 
1BD 9 
1BD 0 
! . 1 - =n illegal 
1BD § ansid - bytezeligned 4 decimal ascii char count (size of data + 4) 
1BD 4 - = end of block 
: : 5 - all other chars illegal (rms$_ani) 
1BD 639 
4 : 8 ENABLE LSB 
0102 30 0O18D 0 10$: BSBW GET_ANSI_D ; get decimal byte count 
BB 50 =Oo«éEO Bice 1 BLBC RO,GETOO ; error implies reached end-of-block 
16 = Bice ¢ BRB 20$ 3; continue with checking 
F4 6A 26 €0 ores : VARSIZ: BBS #IFBSV_ANSI_D,(R10),10$ ; binary size field? 
0109 636; 
0109 637; binary size field 
01C9 638; 
Bee 639 
aEiTrTrewn wg? tv SUBL3. = R1,R7,R2 3; get size of buffer remaining 
02 52 D1 O1CD 641 CMPL R2,#2 : room for count? 
AC 19 0100 206 BLSS GETO0 3 no, onto next block 
62 Ad = 02 3! BRE 64 MOVW #2, IRBSW_CSIZ(R9) 3 note overhead for size field 
5681 106 644 CVTWL (RI) +,R6 ; get rec Length 
49 19 0109 645 LSS GET_CHKMINUS ; branch if negative 
01DB 646 
3108 647 ;++ 
1DB 648 ; 7 
01DB 649; if records are not allowed to cross block boundaries, see if it 
nies 650 ; does and is therefore illegal. 
1DB = 651 ; 
1DB 036 ;-- 
1pB 65 
09 51 AA 93 E1 108 654 20$: BBC #FABSV_BLK, IFB$B_RAT(R10) ,GET_RETREC er 
50 57 1 C3 OE 655 SUBL3 =R1,R7,RO 3; get size of buffer remaining 
50 56 01 pies 656 CMPL R6,R : rec len > # Left? 
76 «1A O1E7 «657 BGTRU ERRIRC : branch if so 
1E9 028 
1E9 659 344 
1E9 660 ; 
1E9 661 ; mow return record to user 
1E9 666 3 
1E9 98 37° 
1E9 664 
1E9 665 GET_RETREC: 
O1EA 30 O1F9 666 BSBwW RETREC 3 return record to user 
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BLBC RO,60$ 3 


ASSUME FABSC_UDF EQ 0 
TSTB —sL FBSB_RFMORG(R10) 
40$ 


#1,R1 : 
40$:  MOVL  IRBSL_CURBDB(R9) ,R4 : 

SUBL3 BDBSL-CURBUFADR(R4) ,R1,1R 
mova IRBSL“RP_VBN(R9) , RABSU_RF 


BEQL ©: 508 


50$: INCL IRBSL_NRP_VBN(R9) 
CLRW I RBSWINRP~OFF (R9) 


@ 

nw 

@o 
. 


; handle errors 
3; received error from retrec. 
: f error is rtb, continue anyway, else 


#RMSS_RTBE*XFFFF 


60$: CMPW RO 
BEQL 308 


++ 


error exit for block device 


ZERO_RFA: 
CLRQ  —— RABSW_RFA(RB) ; 
RSB 


++ 


GET_CHKMINUS: 

INCL R6 

BNEG = ERRIRC 

BRW GETOO 
.DISABLE LSB 


: at this point get has been done for user. 
; now just round up nrp_off to a word boundary unless magtape 


check for size = -1 (end of block flag) 


handle error 
branch if yes 


AX/VMS Macro V04-00 Page ! 


get out on error 


308: BBS #DEVSV_SQD, IFBSL_PRIM_DEV(R10),40$; branch if magtape 


; UDF format? 
; no rounding needed 
; word align next byte pointer 


et current bdb address 
L_NRP_OFF(R9); make byte pointer relative 
(RB); Set rfa 
check for = Me, of block 
no 


; branch 
; and return 


at end of block 
bump vbn and clear offset in block 
and return 


get out. 


is this the rtb error? 
branch if yes 


zero rfa 


size = -1? 


Says get next block 
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B 73 i” 
B 3 
B $ ; fixed size record = pick up the record Length from if fp | 
Be: 8 ; and check for a record of all ‘*’’ chars on magtape, which is ignored. 
; 4 3; if record format is fixed, there is no size field 
ae 
56 52 AA +6 Re 5 FIXSIZ: CVTWL IFBSW_LRL(R10) ,R6 3; get fixed rec length | 
7, + F 734 BLSS ERRIRE ; handle unreasonable size error 
16 6A 6 €1 1 735 BBC #IFBSV_ANSI_D,(R10),20$ ; proceed if not tape 
: 1 b9 3 7 . 10$: MOVL Ri .R3 ; save buffer ptr | 
50 :4 ¢ 7 SUBL3 = R1,R7,R0 3 Mbytes left=end-start 
50 6 O01 C 738 CMPL 88 RO 3; rec len># tere? 
: 1A F 739 BGTRU 208 3; proceed if s 
61 56 SE 8F 3 41 740 SKPC #*A\*\,R6, (R1) 3; is record alt *e"* chars? 
gp 1 rt 741 BEQL ie ; _ so have valid record 
51 dO 8 4 og MOVL R3,R1 store att ter ptr 
99 51 AA 03 E1 0248 743 20$: BBC #F ABSV BLK, IFBSB_RAT(RIOS, GET_RETR 
0 57 1 ¢3 0250 744 SUBL3. =R1,R7,R0 Mbytes left=end-start 
50 56 D1 0254 745 CMPL R : res Len > # Left? 
90 1B 0257 746 BLEQU GET_RETREC : branch if not 
0259 747 
0259 748; 
0259 749 ; fixed length record format, no crossing block boundaries allowed. 
8 23 £39 ; if size not larger than a block then go back and get next block. 
0259 752° 
48 AA 56 B1 0259 3g CMPW R6, IFBSL_DEVBUFSIZ(R10) ; record Len > 1 block? 
60 18 0250 754 BLEQU GETO1 : branch if yes 
O25F 755 
O25F 756 ;++ 
O25F 757; 
O25F 758; illegal record format 
O52 759 ; 
O25F 760 ;-- 
O25F 761 
025F 166 ERRIRC 
025F 76 RMSER IRC 
OC AB 40 A9 DO 0264 764 MOVL IRBSL er VBN(R9) ,RABSL_STV(R8); indicate vbn having bad record 
FFB4 31 0269 765 BRW ZERO_ 
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for UDF format, the users buffer size IS the record size. 
however, we must perform our own logical end-of-file checking 
and reduce the last record length accordingly. 

Eof will be detected on the next $GET. 


UDF SIZ: 
MOVZWL RABSW_USZ(R8) ,R6 3; get requested size 
OVL IFBSL~DEVBUFSIZ(R10),RO 3 get magic buffersize number 
SUBL3 IRBSL_NRP_VBN(R9),- 
IFBSL_EBKTR10) ,R2 3 get # blks till EOF 
SUBW3 IRBSWINRP_OFF(R9),- 
Aresu_FFOTRIO) .RS ; and offset too 
BGEQ 0$ 3 negative means blk underflow 
DECL Re ; reduce # blks 
ADDW2 RO,R3 ; and add a blk 
20$: MOVL _ 3 prepare for divide 
CLRL ue 3 convert size to blk,byte format 
EDIV RO,R4,R4,R5 3: in R4&/R5 
CMPL R4,R2 ; adequate # of blks avail? 
BGTRU 30$ : no room 
BLSSU 40$ ; lots of room 
CMPW R5,R3 3; enough bytes maybe? 
BLssu 408 > yes 
30$ MULL RO,R2,R6 3; use the remaining space up 
ADDW2 R3,R6 :; for this record 
408 BRW GET _RETREC 
3 stream format -- skip the trailing '*’* chars in the block for 
3 magtape. 
STMS1Z: 
BBC #1FBSV_ANSI_D,(R10),20$ ; only check for ansi tape 
MOVL #4,R2 3; record count 
10$: CMPL 3; end-of-block? 
BEQL GE T01 : yes, go to next block 
CMPB (R1)+,#*A\*\ 3 is char eql **’’? 
BEQL ET01 3 yes. go to next block 
SOBGTR R2,10$ : for entire record count 
208: BRW RMSGET_STM_FMT ; retrieve the record 
GETO1: BRW GETOO 3 go to next block 


S++ 


this is a get of a variable (or vfc) ansi magtape record. 
interpret the first four bytes of the record as the length in decimal ascii. 


G 


ET_ANSI_D: 
z Rovw #4, IRBSW_CSIZ(R9) 3 note overhead 
MOVQ op oRe 3 pict up 4 bytes and clear temp 
; bu 


ild resultant rec. len. here 


413 
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4 cB 4 CLRL RO 3 assume failur 
531 38 B3 CD 5 10$: SUBB3 #*A/0/,(R1)+,R3 3 pick up digit *. remove bias 
18 1 D1 § BLSS 30$ : branch if bad 
09 «65 91 D3 CMPB R3,49 3; is it a qigit? 
111A D6 g BGTRU 2 é > branch if n 
6 A AG D MULW 4 R6 3; shift previews partial result 
6 3 AQ DB 0 ADDW2 oR RG : add in new dig 
EC F 45 1 SOBGTR R2,10$ 3; continue if more gigits 
56 04 T E § SUBL2 #4,R6 ; adjust for size field itself 
iF 1 E4 Lss_—s«15 : bad size? 
5 +4 £6 4 INCL RO 3 set success 
0 E 5 12$: RSB 
a 
8 3 33 ; character was > 9. check for ‘'** implying end of block. 
E9 840 ° 
2 53 91 § E9 41 208: CMPB R3,#<*A/*/ = *A/0/> 3; was invalid character ‘'*'? 
FA 13 6 EC 4¢ BEQL 128 : return failure which implies 
EE 4 : go read next block 
OSE Bes 
O2EE beg : invalid ansi d format. 
OoEE Bde 
01 BA O2EE bcs 30$: POPR #*M<RO> ; discard return pc 
Q re 50 RMSERR 
FF28 = 31 8 re B23) BRW ZERO_RFA 3 get out on error 
01 BA O2F8 Bag 15$: POPR #*M<RO> 3; discard return pc 
O2FA 854 ERRIRC1: 
FF62 31 OQO2FA 855 BRwW ERRIRC : report bad record size 
O2FD 856 
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VENTIAL 19 
BLOCK DEVICE GET ROUTIN 5- 


++ 


-SEP-1984 00:48:17 VAX/VMS M v04-00 
iets 9858534 f RIG 


if vfc, process fixed header 


VFCSIZ: BBC #1FBSV_ANSI_D,(R10) ,5$ 
BSBW GET_A 


BLBC Ooi 
BRB 20$ 


NSI_ : branch if ansi d 
GETO1 3 next block on failure 
; continue with checking 


binary size field 


5$: SUBL3 R1,R7,R0 ; get size of buffer remaining 
CMPL RO, #2 ; room for count? 
BLSS GE 01 3 no, onto next block ; 
MOVW #2, IRBSW_CSIZ(R9) ; note overhead for size field 
CVTWL «= (RI)+,R6 : get rec length 
GEQ : branch if oka 


BRW GET_CHKMINUS chk for end-of-block 


+ 
+ 


if records are not allowed to cross block boundaries, see if it 
does and is therefore illegal. 


208: BBC #F ABSV_BLK, IFB$B_RAT(R10) ,30$ 
SUBL3 R1,R7,RO ; Mbytes left=end-start 
CMPL R6,R 3 rec len > # Left? 
BGTRU ERRIRC1 ; bad record if so 
30$: MOVZBL IFB$B_FSZ(R10),R2 : pick up fixed header size 
aceus Rg - 1RESW_CSI1Z(R9) 3 adjust total record size 
SUBL R2,R6 3 adjust remaining rec size 
BBS #IRBSV_FIND,(R9),40$  ; branch if this is a find 
MOVL RABSL_RHB(RS) ,R3 3; get user's header buffer 
BNEQ 60$ ; and branch if there is one 
: skip over unwanted rhb 
40$ SUBL3 R1,R7,RO0 : get # bytes left in buffer 
CMPL RO,R2 ; less than fsz? 
BGEQ 50$ ; branch if not 
SUBL RO,R2,-(SP) 3; get remaining count 
BSBW Ss NX TBLK > get new buffer 
POPR #*A<R2> 3; restore remaining count 
BLBC RO,100$ 3; get out on error 


[(FSZ DEFINITELY IN THIS BLOCK) 


wd 
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RMIGETINT INTERNAL GET SEQUENTIAL 16-SEP-1984 00:48:17 VAX/VMS Macro v04-00 Page 
the RMSGET_BLK_DEV - BLOCK’ DEVICE GET ROUTIN g-8tF =1382 9? 38: MY RMS.SRCJRMIGETINT.MAR;1 ° dj 
51 2 15 50$: ADDL2 = R2,R 3; bump source pointer 
reaD $8 } $13 tn i eee ; reloin ver tine 
C 18 : 
5¢ 318 ; move vfc header to user 
sf gge 
109 28 5¢ 6 lo9 § 60$: BSBW GTMVRC ; move just Like record 
F 33 €8 O35F 9 BLBS RO,55$ 3; get out on error 
0 10 0362 924 BSBB ERRRHB ; map the error maybe 
FEBS 31 tre 925 100$: BRW ZERO_RFA 
307 3 § 

0367 927 ;++ 

0367 928; 

0367 929 ; handle invalid record header buffer 

0367 930; 

0367 931 ;-- 

0367 336 

0367 933 ERRRHB: 

86EC BF 50 Bi 0367 934 CMPW RO, #RMSS_UBF&“XFFFF ; was error bad ubf? 
05 036C 935 BNEQ 100$ : branch if not 
O36E 936 RMSERR RHB 3; switch error code to bad rhb 
0373 937 100$: RSB 


RMIGETINT INTERNAL GET SEQUENTIAL 16-SEP-1984 00:48:17 VAX/VMS Macro V04-00 Page 21 
yO4"600 INTERNAL UTILITY ROUTINES mit 6:25:21 CRMS.SRCIRMIGETINT.MAR;1 . (74) | 
74 39 -SBTTL INTERNAL UTILITY ROUTINES 
74 40 ;++ 
74 4 CHKEOD 
74 94 RETREC 
74 944 RETREC1 
74 944 ; SUCXIT 
74 945 ; UPDSRC } 
74 208 MOVEMODE 
7 94 SETRSZ 
7 948 ; ERRUSZ 
7 949 ; ERRUBF 
7 950 ; ERRUBF1 
7 22) SKPRE 
324 retrec routine to return record data to user. 
, oee handles crossing block boundaries and locate mode. 
74 956: Input Parameters: 
74 957 | 
? 958 ri impure area addr 
7 959 ri0 ifab addr 
7 960 r9 irab addr 
961 r8 rab addr 
7 96 r? addr of end of buffer+1 
7 96 r6 size of record in ortes 
+ ¢3 ri addr of record in the buffer 


Implicit Inputs: 


outputs: 
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the contents of the various structures. 
3f6 r7 end addr of current i/o buffer+1 (updated) 
97 r2-r6 destroyed 
974 ri pointer to next byte in block 
af? r0 status code 
144 Implicit Outputs: 
979 irb$l_curbdb may be updated : 
980 irb$w_cursiz=irb$w_cursiz+trecord size 
981 rab$l_ | 
o86 rab$w_rsz F 
9 rab$l_stv =total record size if rtb error 
one rab$l_ubf record moved here if move mode 
, o89 completion code: 
? 988 standard rms. upon an error irb$l_ios and irb$l_ios4 
4 44 may have additional information. 
7 991 ; Side Effects: 
7 838 2 : 
f 454 may cause i/o if record crosses block boundary. 
7 995 ;-- 


cm 


+ 
+ 


HKEOD: BBC Svea ta’ tt = tPAGE, (RP? ; branch if not indirect 
BBS #DEVSV_REC,- : branch if record oriented device 
JEGSL .ERIA_DEV(R10) .~ ; (terminal, mailbox, network) 


++ 
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16-SEP-1984 00:48:17 VAX/VMS Macro V04-00 P | 
: Hie 4 0:58:34 ERMS SRCIRMICETINT MAR: 1 ~ (9%) | 


this is get from sys$input <- make additional logical eof checks 
(note: this is not the entry point to the retrec subroutine) 


Fix up the buffer pointer so that the $EOD scan will complete 
succesfully. y= 

This ~~. involve re-positioning the buffer so that the current record is 
in the first block. We assume the RMSCONNECT1 has forced MBC>0 so that 
at least 2 blocks are present in each buffer. 


Check if entire record is contained in the buffer. If not, check that 
at least 16 characters of the current record are contained in the block 
as that is sufficient for the SEOD string checking. Pe: 

Note that the current record is not entirely contained within the buffer 
can only happen with disk files. 


This check assumes that mbc is non-zero for disk files where records cross 
block boundaries. in this case, bdb$b_val_vbns gives the number of valid 
blocks in the buffer, and bdb$b_rel_vbn sores ites which block within the 
buffer is currently being processed, in the range of 0 to irb$b_mbc. 


Calculate in r5 the total # of bytes remaining in this and any subsequent 
blocks in the buffer. 


note: if sys$input is from a disk file and records are allowed to 
cross block boundaries, irb$b_mbc must be Greater than 0, 
otherwise the processing of a record crossing a block boundary 
will cause rms to loop. it is assumed that rm$connect1 has 
forced mbc > 0. 


If the record is not contained in the current buffer, 

cause the buffer to be read again, but with the current block as the 
first block in the buffer. Since the buffer is a multiple block buffer, 
oe Gow Fees will cause the next part of the current record to be 
resident also. 


note: worst case is a vfc record with a 255 byte fixed part, with the 
byte count coming as the last word of a block. in this case 
and with a 2-block buffer, the actual record portion to be 
scanned must occur in the second block 


CMPL R1,R7 ; is this the end of the buffer? 
BNEQ 108 ; branch if not | 
CLRL R3 ; flag read required 


E 14 
16-SEP-1984 00:48:17 VAX/VMS Ma v04-00 P 3 | 
Pr1obe $935 MiG mee 


he 38 INTERNAL GET SEQUENTIAL 
v04- INTERNAL UTILITY ROUTINES “SE :21 RMS.SRCIRMIGETINT.MAR;1 3) 
FC7A" 30 3 5 BSBW RMSNXTBLK1 3 yes - go read another block 
4C 29 E? 3 5 BLBC RO,5 i; get out on error 
>. we ey 55 108: SUBL3 = R1,R7,R5 ; compute # bytes left this block 
54 20 A9 =o D 105 MOVL  IRBSL_CURBDB(R9) ,R4 : get current bdb address 
0 49 a6 9A 1 105 HOVZBL BDB$B-VAL_VBNS(R4),RO ; total # valid vbns in buffer 
50 48 AG 8¢ 95 5 SUBB BDB$B-REL_VBN(R4) ,RO ; # blocks to end of buffer 
50 OD 99 5 DECL R ; adjust for current block 
50 48 AA C4 98 6 MULL LLM, DEVEWSIEIRISD AG 3; # bytes after current block 
-.: 2 ee 9 6 ADOL RO,R ; total # valid bytes left 
56 DD A 6 PUSHL ; save actual record length 
ae B1 A 6 CMPW R6,R5 ; is entire record within buff? 
g 18 A 6 BLEQU 40$ 3 no need to re-position if so 
56 dO A 6 MOVL R5,R6 3; try to use amount present 
55 00° 81 3A 6 CMPW © S*#PIO$S_EODSTR,RS ; enough chars to check? 
1B «1B A 6 BLEQU§ 40$ ; yes, go for it 
40 A9 Di 038 6 CMPL IRBSL_NRP_VBN(R9) ,- ; at or past eof block? 
74 AA 38 6 IFBSL-EBKTR10) ; use avail space if so 
14 1E 038 7 BGEQU§ 40$ 3; since there isn't anything to remap. 
5E 04 ¢? 38 7 ADDL2 #4,SP ; discard saved reclen 
FC42" 30 038 7 BSBW = RMSRELBLK1 : release buffer 
14 50 +4 38 7 BLBC R ; get out on error 
40 A9 48 A9 7D 7 MOVG  IRBSL_RP_VBN(R9),IRBSL_NRP_VBN(R9); re-read this record 
20 Ad 4 7 CLRL IRB$L-CURBDB(R9) 3; make sure this bdb not reused 
FDB8 1 , BRw RMS$GET_BLK_DEV ; start over, re-mapping the buffer 
FC31' 30 40$: BSBW RMSINPUT_SCAN 3 compare string for. 
; match with eod string 
; or ‘S$deck’ or ‘$eod' 
56 8E— 00 MOVL (SP)+,R6 ; restore reclen 
05 50 «=2«€8 BLBS RO,RETREC1 3; continue on success 
05 50$: RSB 


entry point for retrec subroutine 


RETREC: 

ne rnect BBS #IFBSV_PPF_INPUT,(R10),CHKEOD; branch if ‘sys$input' 
"ADDW2 = R6, IRBSW_CSIZ(R9) ; add into total record size 
BBC #RABSV_LOC+ROP,(R8),MOVEMCDE; branch if move mode 


9A 6A 2E~ £0 


62 A9 856 = «AD 
2168 30 €1 


user wants locate mode 
-allow only if record does not cross block boundary 
and file is not update accessed 
and not indirect access to ppf 


1D 69 22 €0 BBS #IRBSV_PPF_IMAGE,(R9) ,MOVEMODE; force nove on ind 


3 access of pp 


V yPO. BFBSE_FAC RIG) .ROVERODE ; if update access, move mode 
oR 3 get end address of buffer 
3; past end of block? 


18 22 AA 3 
oe eae) 
5056 
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BBS # 
SUBL3 sR} 
CMPL R6 
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oe 3 INTERNAL GET SEQUENTIAL 1 mi tae bs 91 90:38:17 ote Macro v04-00 Page 24 | 
v04 INTERNAL UTILITY ROUTINES “SEP-1984 16:23:21 RMS.SRCIRMIGETINT.MAR;1 (13) | 
OF 1A F2 1110 BGTRU MOVEMODE ; if so, must move record | 
set 

F4 1118 : o.k. for locate mode | 
iS 
32 AB 56 BO O3F4 111g MOVW RG, RABSW_RSZ(RB) ; set record size 
AB 51 00 4 1) curart poy ‘ R1, RABSL_RBF (RB) ; and record address 

51 56 CO FF i148 UPDSRC: ADDL? R6,R1 ; adjust rl to point past 

28s 1159 3; record in buffer 
05 0402 1121 RSB 
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MOVEMODE : 
BBS V_FIND, (R9) , SKPREC 
MOVL UBF (RB) R3 
MOVZWL USZ(RB) .R4 
BEQL 
MOVL 
CM 


~e 
es. 
Be Se Se Se Se tee 


; readjust count to fill it and advise of 
:; (error status code generated later) 


MOVZWL R2,RABSL_STV(R8) : 
MOVL  R4.R2 


; store the record's address and size and 


10$: MOVW R2,RABSW_R 


_RSZ( 
MOVL.  R3,RABSLRBF 


R8) 
(R8) 


@ 

= 

@ 

o 
DWAW 
aomn 

>. 

os 

o 

S 

a 

Sete Se Se Se Se See 


B 
100$: RSB 
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; 
5 
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5 
4 
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; 
cy 
0 : user buffer not Long enough 
1 3 L 
5 
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5 
; 
8 
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; move mode = move record to user's buffer 


; branch if find, skipping record 
; get user buffer addr 

; and cengen 

; branch if zero 

; copy record size 

; user buffer long enough? 

; branch if so 


difference 


indicate total record size 
just use user buffer size 


move the data 


; set rsz 

; set rbf from ubf addr 

; compute remaining byte count 

; move the record 

; get out on error 

: pers of record yet to be moved? 


ranch if yes 


y 
; return to retrec caller 


50 
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food 


++ 


user buffer errors 


RRUSZ: 


RMSERR USZ 
RSB 


NCSEEHOEE SSE RGeMRdaniet TA 


#*°M<R3,R4> 3 


#IRBSV_FIND,(R9) ,SUCXIT ; 


RMS.SRCIRMIGETINT.MAR; 1 


user buffer size = 0 


user buffer not writeable from caller's mode. 


clean up stack 
no access to user buffer 


rt user record buffer or doing find 


Mbytes left=end-start 
rec len > # left? 

branch if not 

compute remaining recordsize 
=old size - part in buffer 
get another buffer full 

and loop if no error 

get out on error 


branch if find 


rejoin main Line 


T SE 

ILIT 

116 

1188 

1164 

1165 

1198 

116 

1198 

118 

1170 

1171 

1128 

117 

1174 

HE 

i197 ay of POPR 

1178 RMSERR' UBF 

4 1180 RSB 

04 1181 
gee 
0443 1184 ; must ye | over that part of record not moved 
0443 1185 ; due to sho 
04 1186 ; 
geese 
0443 1189 SKPREC: SUBL3 R1,R7,RO 
0447 1190 CMPL R6,RO 
044A 1191 BLEQU 60 
044C 119 SUBL2 RO,R6 
O44F 119 
O44F 1194 BSBW NXTBLK 
363g 1195 BLBS RO, SKPREC 
0455 1196 RSB 
o4s6 1198 
0456 1199 ; return record too big error 
0456 1200 ; 
0486 1902 60S: BBS 
045A 1 8g RMSERR 
O45F 1204 BRB UPDSRC 
0461 1205 
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-SBTTL GTMVRC = SUBROUTINE TO MOVE A RECORD 


RMIGETINT IN 
vO4=000 ot 


ft 
s" 


IA. NIAPOPOPOPOPININONINIAY) — 3 OOO OOM 


WRI O ODNAUES WR 0 OB NOAUE WIN 9 ODNAU EWN $9 ODNOAUE WN OOODNOULSWN—O0OenN Cm 


ee 


++ 
GTMVRC 


: this subroutine moves a record from rms i/o buffer 
; to user's record buffer, crossing block boundaries 
; as needed. 

: Calling sequence: 

; bsbw gtmvrc 

: Input Parameters: 

; r? end addr of block buffer 

3 r3 destination addr 

3 re size of record in bytes 

; ri source addr (in block buffer) 

; Implicit Inputs: 


none 


POPOPOPIPIPIPONPINIPINININPINPINIPININIPNPoNPonofnonny 


; outputs: 
ri address of next record in block buffer 
r0 status code 
r2-r5,ap destroyed 
Implicit Outputs: 


; the next block will be in the i/o buffer if 
the record crossed the block boundary 


Side Effects: 
may have switched to running at ast level. 


DOSOSOSOSOSOSOSSOSSOSOOSOSOSOSOOSOSOSOOSOSOOOOSCOSOOOOOOOOOOOOO 


PS oe et et ak ae ee ek te ah lh eh te eh teh eh, kt he, eh eh eh eh eee 
OOD09 0909 09 IIIS DD DDD DDD DDE P AAA AAA AAA AAPA AA AA AAAAAA AAA 


DEF Be I 9 Be IO Be DC at ti i a a a a ad ad 


eALIGN QUAD :; align for performance 
GTMVRC: 


a ee ed ed ad ed od od tS = 8 2 = 8 3 8 4 ss 


PRIPIPIMINIMUPDVAININPIPINIMNINININININININININIPININYNPPOPINY 


PREDPRD PAT £ BB BB EEE EWI 


52 05 TSTL Re : get record size 
¢8 1 BEQL 25$ ; branch on zero size 
50 57 , Ree SUBL3 =R1,R7,R0 ; get # bytes left in block 
49 #1 BEQL 40$ : read another block if none left 
52 32 D1 O CMPL RO,R2 ; less than move count? 
? 1F BLSSu 108 3; branch if yes (use # left) 
50 2 09 MOVL Re RO 3 no - use the move count 
iB 1 BEQL © 25$ : branch if zero Length record 
0200 BF § B1 10$: CMPW RO,#512 : buffer require long probe? 
1 1A BGTRU  30$ :; branch if yes 
20$: IFNOWRT RO, (R3) ,ERRUBF1,- 3: probe this part of buffer, 
TRBSB_MODE (R9) : branching if ba 
_ a 0 g SUBL RO,R2,AP ; adjust remaining count 
63 61 0 8 MOVCS RO. (RI), (R3) > move the record 
2 a VL AP ,R2 3 any remaining bytes? 


| 
| 
| 
| 
| 


<z 
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eu" ET SEQUENTIAL 1975EO- 138+ 90:6 :17 VAX/VMS Macro v04-00 Page 28 
v04- UBROUTINE TO MOVE A RECORD -SEP-1984 16:23:21 (CRMS.SRCIRMIGETINT.M.R;1 (18) 
24 12 0495 1264 BNEQ 40$ ; branch if yes 
133 1 és 25$: RMSSUC . 
05 049A 1 § RSB 
8 18 
rh } $3 ; long probe for devices with a default buffer size greater than 512 
498 1271 ° 
09 88 498 1 i 30$: PUSHR #*M<RO,R3> 3; save byte count and address 
54 FEOO 8F 49D 127 CVTWL f= ; address computation constant 
4A2 1274 35$: IFNOWRT RO,(RS),ERRUBF,IRB$B_MODE(R9); branch if not writeable 
53 54 ge 4A9 1275 SUBL2 ; get address next page 
50 6044 —E Q46AC 1 gg MOVAW (RO) R4],RO ; adjust count (- 2 pages) 
FO 14 0480 127 BGTR 5$ ; branch if more to probe 
50 54 C2 0482 1278 SUBL2 R4,R0 :; ‘add’ back in 1 page 
B 14 Q485 i279 BGTR 5 3; branch if more to probe 
9 BA 0487 1 +} POPR #*M<RO,R3> 3; restore byte count and address 
C8 11 0489 1281 BRB 20$ i; rejoin main Line 
0488 1 8 
ise, i 
1 82 3 move next part of record 
1286 ; 
13 i 
1289 40$: PUSHR #*M<R2,R3> 3 save remaining byte count 
1290 3; and destination address 
1291 BSBB NXTBLK 3; read next block 
: 38 POPR #*M<R2,R3> 3 restore remaining count and addr 
1294 BLBS RO,GTMVRC 3; and go again 
1295 RSB 
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4C5 1297 

405 1 4 p++ 

rt: : + ; nxtblk subroutine - change buffer/blocks 

4C5 1301 : 

4C5 1 § 3 inputs: 

405 1 5 rii impure area addr 

4€5 1304; r10 ifab addr 

4C5 1 b2 ; r9 irab addr 

ret} 1 $ 3 r8 rab addr 

4C 1307 ; 

rt; } 38 : Implicit Inputs: 

4C5 1310 : irb$l_curbdb 

04€5 1311 ; irb$l_nrp_vbn 

pee 1 1¢ 3 irb$v_find 

4C 1315 ; 
bees ! 13 ; outputs: 

04€5 1316 : if last operation was a find,then: 

04C5 1317; r0 success code 

04€5 1318 ; irb$l_nrp_vbn = irb$l_nrp_vbn+1 

bece 1313 : irbSw_nrp_off = 0 
O4¢5 13 1: if Last operation was not a find, then: 

04c5 13 : : r7 end of buffer addr+1 

04C5 1324 ; r4 bdb addr of new block 

04€5 1325; ri block buffer addr of new block 

04C5 1326; rd status code 
Beee 3 a r2-r3 destroyed 
aces 1399 : 

4C5 1330 ° 

04 6A 2— €0 O4C5 1334 NXTBLK: BBS #1FBSV_PPF_INPUT,(R10),10$ ; branch if this is sys$input 
05 69 29 «£0 oth4 1336 BBS #IRBSV_FIND, (RI) ,20$ 3 branch if find 
53 D4 O4CD 1333 108: CLRL R 3 viag read required 
FB2E" 31 eth : : BRW RMSNXTBLK1 3; go to next block routine 

402 1336; 

Oe 13 3; this is a find call for disk so just bump nrp data and reset buffer pointer 
04D2 1339 © 

40 AY DA 04D 1 rt 208: INCL IRBSL_NRP_VBN (R9) 
44 Ad B4 4D 134 CLRW IRBSW_NRP_OFF(R9) 
51 FEOO C7 ODE 208 1 45 moval -512(R7) ,R1 3 reset start of buffer addr 
05 4e0 1344 $B 

04E1 1345 

etd 1 rf 

4E1 134 END 
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RMIGETINT INTERNAL GET SEQUENTIAL 16-SEP-1984 00:48:17 VYAX/VMS Macro V04-00 Page 31 
Symbol table ade 7 93:38:34 ERMS. SRCIRMTGETINT MARS 1 " (20) 
RMS$_USZ = 0001 gre 
ROP = ° 9 
SKPREC 4435 R 01 
SS$_BADESCAPE = 03¢ 
SS$"PARTESCAPE = ire 
STMS1Z gh R 1 
SUCKIT 0 FC R 1 
YETSLGETBLKD 500000C1 . x : 

FSI Goaggese ROI 
UPDSRC QOOSFF R 01 
VARSIZ B88 165 R 8] 
VFCSI1Z FD R 1 
VT = 00000 8 
ZERO_RFA 00000 R 01 
ZERO_RFA1 00000093 R 01 
ZERO_RFA1_BR 0000012A R 01 

beer ame emesawanee + 


eee nae enone oe mae + 


PSECT name Allocation PSECT No. Attributes 

OS ss 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

RMSRMS1 Q00004E1 ( 1249.) 7. © See PIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 

SABSS 00000000 «¢ 0.) 02¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
prem n wre wwe eo we men nme mannan 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 00:00:00.07 00:00:01.24 

Command processing 117 B28 209-78 00:00:04.19 

Pass 413 00:00:15.19 00:00:41.81 

Symbol table sort 0 Bp 300: Be. 00:00:03.36 

Pass 2 224 0:00:04.1 00:00:11.78 

Symbol table output 16 00:00:00.16 00:00:00.42 

Psect synopsis output 1 00:00:00.02 00:00:00.14 

Cross-reference output 8 33328: 0.00 Bo B88 «00 

Assembler run totals 80 0:00:22.44 00:01:03.1 


The working set_Limit was 1950 pages. 

88550 bytes (173 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1477 non-local and 69 local symbols. 
1347 source Lines were read in Pass 1, progye ine 16 object records in Pass 2 

26 pages of virtual memory were used to define 25 macros. 
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INTERNAL GET SEQUENTIAL 1973 ee 1388 90:38: ae eR Macro V04-00 


te tt Macro Run Statistics RMS.SRCIRM1 GETINT. MAR; 1 


pero nomanr ena ene oneonaaee wan + 


! Macro Library statistics ! 


fewecr seca emamsone ecees wonee} 


Macro library name Macros defined 


“$255$DUA 8:CRMS. ro ey $e MLB;1 14 
“$ SSSDUA2B: SYS.0B LIB.MLB;1 1 
“$255$DUA28: SYS IBISTARLET. MLB; 2 6 
TOTALS (all Libraries) 21 


1575 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIGETINT/OBJ=OBJ$:RMIGETINT MSRC$:RMIGETINT/UPDATE=(ENHS$:RM1IGETINT) +EXECML$/LIB+LIB$:RMS/LIB 
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